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$! 
$! 
$i++ 

+ Facility: STARTUP, Procedure for Starting Up a System 


$! Abstract: This procedure is invoked by the STARTUP batch process 

$! during the startup of a VMS system, It must perform all 
$! mandatory startup activities, and invoke the site-specific 
$! startup procedure to perform optional ones. 


IDENT V04-033 


$! This procedure can also be invoked by the system manager 
$! to restart any of the standard system processes, should 
$! they die for some reason. 


$! P1 A request code. 


$! CACHE _SERVER Restart cluster file cache server. 
$! P Restart cluster server process. 
$! CONF IGURE Restart dynamic configurer. 
$! ERRFMT Restart error formatter. 
$! FULL Perform a full system startup. 
$! JOBCTL Restart job controller. 
$! MINIMUM Perform a minimal startup. 
$! OPCOM Restart oper. communicator. 
$! RCP Restart recovery control process 
$! UPGRADE Perform an upgrade startup. 
$! es Should verification be enabled? 

P Reserved for the customer. 


$! Environment: No particular environment is assumed. 


$' Author: Paul C. Anagnostopoulos 
$! Creation: 20 April 1983 


; Modified by: 


v04-033 BLS0349 Benn Schreiber 30-AUG-1984 
Upcase all logicals in f$trninm calls, and convert 
fSlogicals to f$trninm. 


v04-032 BLS0339 Benn Schreiber 10-AUG-1984 
Set OPAO nodisconnect, nodialup and nomodem. 


v04-031 ACG0438 Andrew C. Goldstein, 33-Aug-1984 16:47 
Add startup of the file cache server process 


v04-030 KDMO0105 Kathleen D. Morse 30-Jul-1984 
Print MicroVMS starting message only if P1 is null. 


v04-029 BLSC329 Benn Schreiber _ 50-JUN-1984 
Invoke UVSTARTUP earlier. Give opcom bigger extent. 


v04-028 BLS0325 Benn Schreiber 4-JUN-1984 
Use FULLDEVNAM when aptelning system device name. Define 
SYSSSCRATCH for SYSTARTUP and equate to SYSSMANAGER:. 


V04-027 KDMO104 Kathleen D. Morse 18-May-1984 
Fix references to UVSTARTUP.COM. 
v04-026 KDMO0102 Kathleen D. Morse 14-May-1984 


Do not start ERRFMT or OPCOM on full MicroVMS boot. 

Only start them on MicroVMS systems, if they are qxplicitly 
goec iT ied as the Pl parameter. Do not start CSP if the 

Pl parameter is set to MINIMUM. Do not start CONFIGURE 


PAAMMMMM 


v04-025 


v04-024 


v04-023 


v04-022 


v04-021 


v04-020 


v04-019 


v04-018 


v04-017 


v04-016 


v04-015 


v04-014 


v04-015 


v04-012 


v04-011 


if no CI port is found. 


BLS0315 Ben wcoibe -_~ ¥-1984 
iS ae set to sEyg SYSROOT: CSYSEXE Reset it 
K 


—_ CW Hobbs 07-May-1984 
— ast and BUFIO quotes for OPCOM, to improve 
co “time performance. 


WHMO004 Bill M 02-May-1984 
Remove reference to USE SYSEARAMS getsyi item. 


WHMO0003 Bill Matthews 04-Apr-1984 
Invoke SYSGEN to do : write current if a seperate system 
perenster file is be ng. used and modifications were made 

n a conversational boo 
Make the definition of "SiSSCORNON the same as SYSSSYSROOT 
when there is no common 
Don't invoke SYSGEN to qo-an on jutocontigure if the SYSGEN 
peconeter NOAUTOCONF IG 

dded privledges BYPASS a SHARE to CONFIGURE so it can 
report errors to the operator console. 

Added privledge SETPRV to OPCOM. 


ADE0001 Alan D. Eldridge 2-Apr-1983 
Install images before starting system processes. 
TMKO003 Todd M. Katz 


22-Mar-1983 
Create the shareable lo leat name LNMSDCL *TOSICAL with the 
translation LNMSFILE DEV instead of the translations 
LNMSPROCESS, CNMSJOB. CNMSGROUP, LNMSSYST EM. 


LEB001 Linda Ben 13-MAR-1984 
Add entry to run SMGMAPTRA. necded by RTL Smet. facility. 


BLS0274 Benn Schreiber 21-FEB-1984 
f uvms system, try to invoke “ UVSTARTUP. COM 


WHMOO2 Bill Matthews 13-Feb-1984 
Add terminal and concealed attributes to the logical name 
sys$sysroot. 


wWHMOO1 Bill Matthews 01-Feb-1984 
Modify logical name definitions to support a shared common 
system root. 


,vesss Larry Yetto 13-JAN-1984 11:26 

Comment out all CJF Folated code 

LY0449 Larry Yetto 5-JAN-1984 13:01 

paperets the starting of the default JNLACP from the JCP INIT 
omman 

BLS0248 Benn Schreiber 5-Dec-1983 

Speed up, at the sacrifice of elegance. 


TMK0002 Todd M. Kat 22-0ct 71983 

Create the shareable lo i name LNMSDCL LOGICAL the 
translations LNMSPROCESS,LNMS$JOB,LNM LSE ROU’ LNM co ween Pon sae 
of the translations LNMSPROCESS, (NMSGROUP. CNMSSYSTEM, 


TMK0001 Todd M. Katz 18-0c t-1983 


PAAAAAARHARARPHAPAPAPAGRAPRAHPAHAAHPHAHHVWHVRHKHKHHK 


Sregte the Rerente Logical name LNMSDCL LOGICAL” which is 
sed by DCL Logical name table namé when 
Ponethess saneat names. 


v04-010 PRBO276 aul Bec 27-Sep-1983 10:01 
aE ptoryve of csp" so it "eal starts if in a cluster. 


ix loading of RUF oory ges. 
hn. e out startu so it can be restarted using STARTUP. 


Re-enable JCP FAITTALG IE co command to create default JNLACP. 


V04-009 KFHOO01 Ken Henderson i Ph 1983 
Fix testing of cluster_member and bendien’ of CJF 
Get rid of ‘sysgen_error' routine. 

v04-008 KDM0078 thlee Morse 30-Aug-1983 
Fix SCS_EXISTS ine as “Sctisyi does not return FALSE. 

v04-007 KDM0077 thleen D. Morse 29-Aug-1983 


Add NETMBX prtytlons to OPCOM startup. 


V04-006 CwH3002 CW Hobbs 25-AUG-1983 
Change OPCOM startup, send /ERROR to SYSSMANGER:comp_ERROR.LOG 


v04-005 PCA1028 Paul C. Anagnostopoulos 19-Aug-1983 
Reserve P8 for the °° Sagan and pass all parameters to 
SYCONFIG and SYSTARTUP 


v04-004 wMc0001 Wayne Cardoza 08-Aug-1983 
SCS_EXISTS is returned as a string. 
v04-004 wMC0001 Wayne Cardoza 06-Aug-1983 


Make a bunch of logical names exec-mode. 
Remove JCP initialize command since it is unimplemented. 
Fix +R for SCS_EXISTS. 


v04-003 CWH3001 CW Hobbs 21-JUL-1983 
Add CSP (Cluster Server Process) startup. 


V04-002 Paul Beck 29-JUL-1983 18:30 
Add startup code for Common Journaling Facility 


V04-001 Ron Schaefer Use new logical name services. 


saved_verify = ‘f$verify(0) ! This must be the first DCL command. 
set noon 

Say :== write sysSoutput 

sysgen : = $sy 


cpu = t$gets vit cpu) 
microvax = ((cpu .eq. 7) .or. (cpu .eq. 8)) 


Enable all message parts so that error messages are more obvious. 


saved_msg = $Senyironment MESSAGE’) 
saved_default = f$envi vorne nt ("DEF AULT"') 

set méssape/tacility/severi bp/ tgent te teat tens tent 
set default sys$sysroot:(sysexe 


If no parameters were | pee ities. then et their values from 
sysgen parameters. still isn’t defined, use FULL. 


if pl .nes. 


then goto 9 


ak ekokal 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


PHAAAAAAAAGAHAAAHAAPGAAAALAAAAOCASA 


oO 


‘we JNLee 


Q} : fSedit(f$getsy i (STARTUP p1"'), “TRIM, UPCASE") 
p1 eg. then p] s ULC * ; 
p2 = tte t(f etsy “STARTUP_P 12) TRIN ,UBCAS « 
ps = fSedit( f$getsyi(“STARTUP-P3'), “TRIN-UBCA ) 
p4 = fSedit( fS$getsyi ('STARTUP_P4") “TRIM, UPCASE'') 
p> = fSedit(fSgetsyi(''ST _P9'') ,)'TRIM,UPCASE'') 
= fSedit(f$getsyi(''STARTUP-P6")."TRIM.UPCASE’ 
p? = fSedit( f$getsyi(STARTUP-P7') .‘TRIM,UPCASE’’) 
p8 = fSedit( fS$getsyi('STARTUP~PB") .""TRIM.UPCASE'’) 


Pl specifies a request code, which tells us what to do. Make sure 

the code is valid, and expand it to its full spelling. 

runlexit = ‘‘EXIT_OK*' . 
$ requests = ‘',CACHE SERVER, CONF IGURE,CSP,ERRFMT,FULL,JOBCTL,MINIMUM OPCOM,RCP UPGRADE’ 

requests = "CACHE SERVER, CONFIGURE ,CSP,ERRFMT ,FULL , JOBCTL MINIMUM, OPCOM, UPGRADE 

i = f$loc(",“+p1, requests) 

if i .eq. t$Len(requests) then say ‘ZSTARTUP-F-INVREQ, The parameter ''p1l is invalid."’ 

if i .eq. f$len(requests) then goto EXIT_FATAL 

pl = fSext(i+l, f$loc("’,"’, fS$ext(i+1,999,requests)) ,requests) 


P2 determines whether or not we enable verification. 
if p2 then set verify 

Case on the request code. 

goto ‘pl 
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microvax .and. (P1 .eqs. ‘"') then oer - 
e MicrovMS system is now executing the system startup procedure. !/‘') 


f 

/Th 
At this point. the followin bgatcat names have been defined: 
SYSSSYSDEVICE, SYSSTOPSYS, SYSSCOMMON, SYSSSYSROOT, SYSSSYSTEM, 
SYSSSHARE, and SYSSMESSAGE. Set up SYSSSPECIFIC and redefine SYS$SYSROOT 
if t {fs no common root. Equate SYSSSYSDISK and SYS$SYSROOT. 


here 


root = f$getdvi('’SYSSSYSDEVICE'’,“’fulldevnam’) = “'" 
if fStrninm(''SYSSTOPSYS’', “LNMSSYSTEM'') nes. *** ther - 

root = root + “‘["’ + f$trninm("’SYSSTOPSYS'',""LNMSSYSTEM'’) + ‘',J"' 
define/system/exe gnolog/srens set rons (reraings concealed) sys$specific ‘root 
no_common_root = f$search(''SYSSSPECIFIC:COOOOOOJSYSCOMMON.DIR') .eqs. '”’ 
if no_common_root then - 
define/system/exec/nolog/translation=(terminal,concealed) sys$sysroot ‘root 
if no_common_root then - 
define/system/exec/nolog/translation=(terminal,concealed) sys$common ‘root 
define/system/exec/nolog sys$sysdisk sys$sysroot: 


| 
| 
| 
| 
Set up the stendard bunch of logical names for each system directory. 


frF F F PEFEKENEOR SF 
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define/system/exec/nolog sys$errorlog eyeqeyereet:psvenr? 
define/system/exec/nolog sysS$examples sys$sysroot:(Csyshlp.examples] 
define/system/exec/nolog sys$help sys$sysroot:(Csyshlp 
define/system/exec/nolog sys$instruction sys$sysroot:(syscbi] 
define/system/exec/nolog sys$library sys$sysroot:(Csysli 
define/system/exec/nolog sys$maintenance sys$sysroot:(sysmaint] 
define/system/exec/nolog sys$manager sys$sysroot:(Csysmgr] 
define/system/exec/nolog sys$update ageweyor ees tc ayeup ] 
define/system/exec/nolog sys$test sys$sysroot:(systest) 


Define the system logical names used by the Debugger. 


a 


$ 
$ 
$ 
& 
$ 
$ 
$ 
& 
$ 
$ 
% 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
6 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


oo 


define/system/nolog dbg$input sysSinput: 
define/system/nolog dbg$output sys$output: 


Define the logical name used by DCL as the logical name table name 
during translates. 


define/table=|nm$system_directory/super \lnm$dcl_logical Iinm$file_dev 


APAAAAAGHON 


If a seperate system pgreneter file is being used and modifications 
were made during SYSBOOT then invoke sysgen to update the system 
parameter file. 

if fSgetsyi('WRITESYSPARAMS'') then sysgen write current 


if pl .eqs. ‘UPGRADE’ then goto POST_INSTALL 
| 
| 
} 
| 


Now we can install a more-or-less standard set of VMS images. 


if iSpeteys < TAILORER then OsysSmenager: vas inages INSTALL vmsimages 
(‘TAILORED’) then - 
define /user fyasinnyt sys$manager :vmsimages.dat 


if .not. 
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hast ete neer sume neges INSTALL sysSmanager:sy images 
~" Start up the error formatter, cluster services, operator 
communication, and job controller processes, in that order. 


a 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
£ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


PHORM 


ERRFAT: 


run_lexit = ‘FULL_20" 
if microvax .an 


cer reer eer éysboutbut’nt nl 


run sys ye gg aS 


/input=_opa0: / 


/ast_Limit=64 /buffer_limit=40960 - 
6: bufferedeie viovdis cerrfm -error. log - 
/d /énqueue l 


/maximum_workin 
ype e_file=2048 


pr vileges=(nosame, 
/process_ name="ERRFMT 


goto ‘run_exit' 


/prior 


, 


bypa 


pa 
/ 
/ft 
ty=7 / 
ss,cmk 
/uic=C1 


ob wut tecede} 


(p1 “nes. “ERRFMT'') then goto ‘run_exit’ 


/io_direct=12- 


ffueve sifat 64, /subprocess_Limit=64 - 
rn 
er okiea. set=100 


| 
——$ 4 


run_exit = "FULL_30" 


51 7008. “MINIMUM then goto ‘run_exit' 
sfoutput nts then goto ‘run_exit' 


esery - 
ise recite 9pa0: fe crorasysSmanager: cache_server_error.log - 


yank. tia te fer_T 
jenque ue_ Linit ‘this mi | aig Aone f tered 12 /io direct=12 - 
jaonin mum “Soret ng. set=51 2"/page.t go's 
/priority=16 /prt vileges=(al 'y /auey { mit=64 fouborecsss Limit=64 - 
fororet®. name= ‘CACHE _SERVER" juiests i%z /working_set= 

*run_ex 


$full 


~50: 


un_exit = “FUL 


L_40"' 
it pl .eqs. ‘“MINTMUM then goto ‘run_exit' 
not. counts Serre MEMBER'') then goto ‘run_exit' 
tput 


detine/pser sys 
run sysSsysten:csp 


/as ute gpa; / 


imi 


/e ue_| 
jenayeue. of 
/priority= 


/process_ name=""CLUSTER_SERVER"™ 


goto ‘run_exit 


3° 


kin 
/pr. 


ath 


i 


= fatteud / crocasyecnenagers cluster_server_error.log - 
ts =4 


eetats 
leges=(a 


Linitege /fge / gabyt tered=t2 /io direct=12 - 
coetyt, fi le=20 

7queue Limit=64 [ymerecess Limit=64 - 
uic=£1,4] /working_set=100 


$full =40: 
COM: 


mY 


unlexit = “FUL 


if microvax .an 
gus way seer sys 


jacket li 


L.60" 


q- (p1 4 tt “OPCOM'') then gcto ‘run_exit' 
y : 


jenqy eve_lim 


max work 

/orivite ° oa "Taarenee epeets. per.sysBrv, oe Bo! “ori setprv) - 
264 /su 

/ rocess. iname=""OPCOM” /uic=01,4) /working. set=100 


/queue_ 
p 
goto ‘run_ex 


it 


Me 


ut= 
Fer 


ng_ sete 


tat t=96600°/dump nee :opcom_error.log - 


abimi +4 a - buttere ieee 4 Sadirectelé - 
“/extent=204 /page_file=20480 /priority=6 - 


rocess 


Sfull ~60: 


un_exit = ‘‘FULL_80"' 
pete 


% define/user sys$output nl: 
$ run sys$system: seh - 


se nt hi 
ANA re 


preter name="'JOB_CONTROL'' 7uic= 


c 
le 
/ 
$ goto ‘run_exit' 


eownagers job_control_error.log - 
abe terme direct=200 - 


working_set=100 


- 


PAPHAAAAAAAAAHHMHHHHMMONY— 


ull_80: 


Set console terminal characteristics to guard against site-specific 
TTY_DEFCHAR modifications. 


set terminal OPAO /permanent /nomodem /nodisconnect /nodialup 
Case again on the request code because the paths diverge now. 
goto ‘'pi'_CONTINUE 


FULL_CONTINUE : 


We continue a full startup by configuring the 1/0 devices. 
If the user has a configuration procedure, we invoke it. 
Then, unless told otherwise, we autoconfigure all devices. 


startup$autoconfigure_all == 1 , 
if peat I aprons mobs yg -nes. ‘"’ then = ' 
ig 1 Hadad ae a ttee — ster 4°" ee wi: mie ae Kia inti 


s$manager :sycon — p 
“NOAUTOCONFIG'’) then - 


as 
if startupsautocontigure. all and. .not. f 
sysgen autoconfigure all 


t 
] 
getsyi( 


$ 

$! After the devices are configured, we can start up the dynamic 

ts configuration process. 

$ if .not. startup$autoconfigure_all .or. Sogetey ss aneraCeNe Le) - 
: then goto configure_starte 

$ run_exit = ‘‘configure_started 

SCONF IGURE : 

$ if .not. f$getdvi('PAAO:"’,""EXISTS'') then goto ‘run_exit' 

: define/user sys$output nl: 


run Syetgysten scent leurs - 


nput=_opa0: /output=_opa0: /error=sys$manager:configure_error.log - 
/ast_limit=200 /buffer_Limit=100000 /dump - 
/enqueue_lLimit=200 /file_Limit=200 /io buffered=200 /io_direct=200 - 
/maximum_working_set=512° /page_file=20480 /priority=8 - 
Teen Tere ae pecker coreres -Oxpans snare) - 
/queuve_limit=200 /subprocess_Limit=200 - — 
/process_name="'CONF IGURE’' /uic=(1,4] /working_set=100 


goto ‘run_exit’ 


— 


$!eeJNLee 
S$! ee JNLee 
$'eeJNLee 
$'eeJNLee 
S!*eJNLee 
$'eeJNLee 
$'e*eJNL«* 
$'eeJNL»* 
Si eeJNLee 
S$! eeJNL ee 
Si **JNLee 
S!*eJNLee 


gcont igure_sterted: 

y Install any deferred swapfile if it exists. 

$ if panoarent wypooreren:ouser tte? bys" 7 nes. ‘"’ then = 

$ sysgen install sys$system:swapfilel.sys /swapfile 

4 Invoke UVSTARTUP if this is a MicroVMS system 

$ if microvax .and. (f$search(''sys$system:uvstartup.com’’) .nes. ‘"') then - 
asys$system:uvstartup 

$! If the system crashed —— a software product installation performed 

$! oY VMSINSTAL, then we want to invoke VMSINSTAL to attempt recovery. 

4 The existence of a marker file gives us the clue we need. 

% if fSsearch(''sys$update:vmimarker.dat’') .nes. ‘"' then - 

$ @sys$update:vmsinstal ‘"’ '"’ options b 

S!**JNLee $! Start Common Journaling if SYSGEN parameter demands it, or if in 

Si*eJNLee §! cluster. 

Si*eJNLee § 

Si*eJNLe* $ if f$getsyi(''CLUSTER_MEMBER’') then goto cjfload 

Si*eJNLee § 

Si*eJNLee $! If CJF isn't wanted, we're done. 

Si*eJNLee §$ 

Si**JNLee §$ if .not. f$getsyi('CJFLOAD'’) then goto cjfdone 

SieeJNLee §$ 

S!**JNL** S$cjfload: 

Si**JNLee $! 

SieeJNLee $! Start the default journal ACP 

S!*eJNLee §! 

SieeJNLee §$ run sys$system:jcp 

S!**JNL** start 

S'*eJNLe® exit 

Si*eJNLee §! Load the journaling driver and create the UCBs for BI, Al, AT, RU, CL journals. 

SiteJNLee §$ 

Si*eJNLee § run sys$system:sysgen 

Si**JNLe* Load jnidriver 

S!**JNL** connect cjb0/drivername=jnidriver/noadapter 

S!**JNL*® connect cja0/drivername=jnidriver/noadapter 


connect cj)t0/drivername=jnidriver/noadapter 
connect c)r0/drivername=jnidriver/noadapter 


connect cjcO/drivername=jnidriver/noadapter 
" define/system CJFSDRV_LOADED y 

y Load the CJF and RUF system services 
% run sys$system:sysgen 


load sys$system:cjfloa.exe 
Loge sys$system:rufloa.exe 
ex 


SieeJNLee § define/system CJFSSERV_LOADED y 

SiteJNLee $! 

Site JNLee $! Start the Recovery Control Process 

SieeJNLee §! 

SieeJNLee § run_exit = ‘RCP_LOADED"’ 

S!'*eJNLe* SRCP: 

SiteJNLee $ run syeSeyston: reg. oxe - . i he 
S!*eJNL ee /input=""_OPA0:*' (outputs OPAO:"* /error=""SYSSMANAGER: JNLRCP_ERROR.LOG'’ - 
$i eeJNL ee sprocess nenes mre /utc=C1 3 dorlority=s /ast_lLimit=200 - 

$!*eJNLee /buf fer_Timit=100000 /enqueue f mit=200 /io_buffered=200 / o.direct=208 - 
S$! eeJNL ee /file_Limit=200 /working_set=T00 /maximum_working_set=512 /page_file=20480 - 


¥ PAPAAAMAAMAMHMMMMMMMMw 


o 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 


Sie JNL ee /queve_lLimit=200 /subprocess_lLimit=200 - 

Sie JNLee /privileges=(nosame,noacnt,altpri,cmkrnl,detach,exquota, log_io,setprv, tmpmbx,prmmbx,sysnam,world, share) 
Site JNLee § goto ‘run_exit’ 

$!**JNL** Srcp_loaded: 

S'teJNLee $! 

Si*eJNLee §! If in a cluster, solicit information about other nodes in the cluster. 

SiteJNLee §! 

S'**JNLee § run sys$system:jcp 

S'**JNLe* initialize 


Site JNLe® exit 
Si**JNLee §$ define/system CJFSINITIALIZED y 


SiteJNLee $! 

Si*eJNLee $! If a Recovery Unit Journal is needed on the a ee disk, create it. 

Si**JNLee $! If other than the default parameters imposed by JCP are desired, the 

SieeJNLee §! correct approach is: 

S!teJNLee $! 1. bring the system up with CJFSYSRUJ = 0, : + 
Si*eJNLee §! - manually create the recovery unit journal with the desired characteristics, 
SiteJNLee §! - set CJFSYSRUJ = 1 for subsequent boots. 

Si*eJNLee §! 

S'eeJNLee §$ if .not,. wie at iC'CJFSYSRUJ"') then goto nosysruj 

S'teJNLee §$ run sys$sys oni icp 


S!**JNL** create/file=cif rujnl ru sys$sysdevice: 
SiteJNLee $! 

Si*eJNLer $! That's about it. 

SiteJNLee $! 

$!**JNL** S$nosysruj: 

$i *eJNLee $cjfdone: 


Set up a ‘“‘normal’’ environment and invoke the site-specific 
startup procedure, if present. 


set default sys$system 
Set up the global section needed by the RTL SMG$ facility 
run sys$system:smgmaptrm 


define/nolog sys$login sys$system: 

define/job/nolog sys$scratch sys$manager: 

mount := mount/noassist 

startup$interactive_logins == 64 

if f$search("'sys$manager :systartup.com''), nes. then - oa Stl Pay ar = 
@sysSmanager:systartup “''pi'’’ "**p2t’’ "*p3t'* '* "4" 'e6* *"p6' he **p8' 


In V3, the site-specific startup procedure was not suppcere to return 
unless it wanted 64 interactive logins. Now we use the global symbol 
to determine the login count. But since a site-specific procedure 
might not return, we can't do anything after this point except enable 
logins and quit. 


set loging/interactives"startupSinteractive logins 
logout/brief 
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SRUNLPUA CONT IIE ¢ : 
$ i 
$! Enable eight interactive logins and call it quits. : 
$ 
$ set Loging/ interest Ivecs F 
$ Logout/brief 


~~ 


— 
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$ 
$ 
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$ 
$ 
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$ 
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$ 
$ 


cc COO OOO — rc 


SUPGRADE CONTINUE: 


$! 
$! 


We are done with a start 
want to exit rather than 


goto EXIT_OK 


“to 


for the upgrade phases. 
gging out. 


—e 9 


However, we 


wemeurwr 


PRMMOM 


cad 
lo 
a 


set mess 
exit &x1 


EXIT FATAL: 
set default “pte adefautt 
set message ‘save 


F 9 
We always come down a to exit the procedure, so that verification 
can be reset as appropria 


te. 


set default seauee default 


88S000%'s ’ Sot everity(seved. verify) 


exit %x105a0004 + Sy: *Ysverity(saved. verify) 
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